Sub Test()
    Dim Ws As Worksheet
    Application.ScreenUpdating = False
        For Each Ws In ThisWorkbook.Worksheets
            Ws.UsedRange.Value = Ws.UsedRange.Value
        Next Ws
    Application.ScreenUpdating = True
End Sub